home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / fix-low.scm < prev    next >
Text File  |  1995-10-13  |  2KB  |  73 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. (define-structure low-structures low-structures-interface
  5.   ;; Flatloaded
  6.   (open ))
  7.  
  8. (define ascii (structure-ref built-in-structures ascii))
  9. (define signals (structure-ref built-in-structures signals))
  10. (define loopholes (structure-ref built-in-structures loopholes))
  11. (define escapes (structure-ref built-in-structures escapes))
  12. (define vm-exposure (structure-ref built-in-structures vm-exposure))
  13.  
  14. ; (define-structure locations locations-interface
  15. ;   (open scheme-level-2 ...))
  16. (define locations (structure-ref built-in-structures locations))
  17.  
  18. (define closures (structure-ref built-in-structures closures))
  19. (define bitwise (structure-ref built-in-structures bitwise))
  20.  
  21. ;; For initial system
  22. (define write-images (structure-ref built-in-structures write-images))
  23. (define structure-refs (structure-ref built-in-structures structure-refs))
  24. (define low-level (structure-ref built-in-structures low-level))
  25.  
  26. ;; For compiler
  27. (define features (structure-ref built-in-structures features))
  28. (define code-vectors (structure-ref built-in-structures code-vectors))
  29. (define source-file-names
  30.   (structure-ref built-in-structures source-file-names))
  31.  
  32. (define true-scheme (structure-ref built-in-structures scheme))
  33.  
  34.  
  35. (define-structure scheme-level-0 scheme-level-0-interface
  36.   (open true-scheme
  37.     primitives        ; only for extended-number?
  38.     structure-refs)
  39.   (access true-scheme)
  40.   (files level-0))
  41.  
  42. (define-structure silly (export reverse-list->string)
  43.   (open true-scheme)
  44.   (begin (define (reverse-list->string l n)
  45.        (list->string (reverse l)))))
  46.  
  47. (define-structure cont-primitives
  48.     (export make-continuation
  49.         continuation-length
  50.         continuation-ref
  51.         continuation-set!
  52.         continuation?)
  53.   (open (structure-ref built-in-structures primitives)))
  54.  
  55. (define-structures ((primitives primitives-interface)
  56.             (primitives-internal (export maybe-handle-interrupt
  57.                          raise-exception
  58.                          get-exception-handler
  59.                          ?start)))
  60.   (open true-scheme
  61.         cont-primitives
  62.         (structure-ref built-in-structures bitwise)
  63.         (structure-ref built-in-structures records)
  64.         (structure-ref built-in-structures signals)
  65.         (structure-ref built-in-structures features)
  66.         (structure-ref built-in-structures templates)
  67.     )
  68.   (files ("../alt" primitives)
  69.      ("../alt" weak)))
  70.  
  71. ; How about signals?
  72.  
  73.